home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 March / 1987-03.d64 / text sequencer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  854b  |  22 lines
  1. 10 print"[147]creating ml file...":forx=0to167:reada:poke828+x,a:ck=ck+a:next
  2. 20 ifck<>19807thenprint"error in data statements.":stop
  3. 30 open1,8,1,"0:text seq.obj"
  4. 40 poke780,253:poke253,60:poke254,3:poke781,227:poke782,3:sys65496:close1
  5. 50 data 162,2,32,198,255,32,207,255,201,47
  6. 60 data 240,46,166,144,224,64,240,89,201,37
  7. 70 data 240,21,201,60,240,22,201,62,240,23
  8. 80 data32,210,255,166,197,234,224,3,240,18
  9. 90 data 76,65,3,169,5,76,90,3,169,30
  10. 100 data 76,90,3,169,159,76,90,3,32,127
  11. 110 data 3,32,176,3,76,65,3,160,0,185
  12. 120 data 182,3,240,7,32,210,255,200,76,129
  13. 130 data 3,165,197,234,141,228,3,201,60,240
  14. 140 data 25,173,228,3,201,1,240,3,76,141
  15. 150 data 3,32,167,3,104,104,96,169,2,32
  16. 160 data 195,255,32,204,255,96,169,147,32,210
  17. 170 data 255,96,13,5,32,211,208,193,195,197
  18. 180 data 32,194,193,210,154,32,212,79,32,195
  19. 190 data 79,78,84,73,78,85,69,44,5,32
  20. 200 data 210,197,212,213,210,206,154,32,70,79
  21. 210 data 82,32,205,69,78,85,159,0
  22.